-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2560
-- card count: 4
-- first card id: 2958
-- list block id: 5768
-- print block id: 3479
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 22592 bytes
-- stack block size: 10240 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide menubar
  hide msg
end openStack

on idle
  get the mouseLoc
  if item 1 of it < 10 then
    if item 2 of it > 332 then
      screensave
    end if
  end if
end idle

--
-- SCREENSAVER
--


on screensave
  global saver
  set lockscreen to true
  hide msg
  push this card
  hide menubar
  go to card "screensave"
  choose lasso tool
  click at 239,163 with commandKey
  set cursor to none
  put 239 into oldHoriz
  put 163 into oldVert
  set lockscreen to false
  repeat until the mouseClick
    put the mouseLoc into tempLoc
    set lockscreen to true
    set cursor to none
    put random(512) into horiz
    put random(342) into vert
    set dragSpeed to 400
    drag from oldHoriz,oldVert to horiz,vert
    put horiz into oldHoriz
    put vert into oldVert
    set lockscreen to false
    set cursor to none
    get inKey()
    if it is not empty then
      exit repeat
    end if
    put the mouseLoc into tempLoc2
    if tempLoc2 <> tempLoc then
      exit repeat
    end if

  end repeat
  set lockscreen to true
  click at 20,1
  doMenu "Revert"
  choose browse tool
  set lockscreen to false
  visual effect iris open
  pop card
  put 0 into saver
end screensave

--
-- INSTALLRES FUNCTION
--

function installres type, resname
global fname
--
--Original script by Steve Drazga, ART Incorpoated
--XFCNs used: fileName,
--XCMDs used: modResCopy,
--HANDLERS used: none
--FUNCTIONS used: none
--
put (long name of this stack) into sourceStack
delete first word of sourceStack
delete first character of sourceStack
delete last character of sourceStack
if fname is empty then exit installres
if sourcestack=fname then
  play "oops"
  return "Get real.  You can't install it in this stack"
  exit installres
end if
--
ModResCopy sourceStack,fname,type,resname
--
get the result
if first char of it is "E" then
  play oops
  return "Attempt to install resource has failed."
else
  return "Resource installation successful"
end if
end installres